* E1 27 D A4211 BELL * E1 28 D A4222 BOLD * E1 29 D A4241 CR * E1 2A F A4261 ESC$ * E1 2B D A4291 FF * E1 2C D A42A6 LF * E1 2D D A42C2 MODE * E1 2E D A4313 PERF * E1 2F D A43CA PL * E1 30 D A4446 UNDERLIN * E1 31 D A4471 WRAP dA4008 NIBASC 'PRINTLEX' Filename dA4018 CON(4) #E208 File type dA401C NIBHEX 0 Flags dA401D NIBHEX 0 Copy code dA401E NIBHEX 9491 Creation time dA4022 NIBHEX 814098 Creation date dA4028 REL(5) A4496 FILEND *A402C ---------- File header end *A402D --LEX header-- dA402D CON(2) #E1 LEX ID dA402F CON(2) #27 Lowest token dA4031 CON(2) #31 Highest token dA4033 CON(5) #00000 NO linked LEX dA4038 NIBHEX F NO speed table dA4039 CON(4) #0071 Offset to text table dA403D CON(4) #0000 NO message table dA4041 CON(5) #00000 NO poll handler *A4046------MAIN TABLE------ *A4046 dA4046 CON(3) #000 Offset to text dA4049 REL(5) A4211 BELL execution code dA404E NIBHEX D char. nib *A404F dA404F CON(3) #00B Offset to text dA4052 REL(5) A4222 BOLD execution code dA4057 NIBHEX D char. nib *A4058 dA4058 CON(3) #016 Offset to text dA405B REL(5) A4241 CR execution code dA4060 NIBHEX D char. nib *A4061 dA4061 CON(3) #01D Offset to text dA4064 REL(5) A4261 ESC$ execution code dA4069 NIBHEX F char. nib *A406A dA406A CON(3) #028 Offset to text dA406D REL(5) A4291 FF execution code dA4072 NIBHEX D char. nib *A4073 dA4073 CON(3) #02F Offset to text dA4076 REL(5) A42A6 LF execution code dA407B NIBHEX D char. nib *A407C dA407C CON(3) #036 Offset to text dA407F REL(5) A42C2 MODE execution code dA4084 NIBHEX D char. nib *A4085 dA4085 CON(3) #041 Offset to text dA4088 REL(5) A4313 PERF execution code dA408D NIBHEX D char. nib *A408E dA408E CON(3) #04C Offset to text dA4091 REL(5) A43CA PL execution code dA4096 NIBHEX D char. nib *A4097 dA4097 CON(3) #053 Offset to text dA409A REL(5) A4446 UNDERLIN execution code dA409F NIBHEX D char. nib *A40A0 dA40A0 CON(3) #066 Offset to text dA40A3 REL(5) A4471 WRAP execution code dA40A8 NIBHEX D char. nib *A40A8---MAIN TABLE END--- *A40A9---Text table--- *A40A9 dA40A9 CON(1) #7 dA40AA NIBASC 'BELL' dA40B2 CON(2) #27 Token *A40B4 dA40B4 CON(1) #7 dA40B5 NIBASC 'BOLD' dA40BD CON(2) #28 Token *A40BF dA40BF CON(1) #3 dA40C0 NIBASC 'CR' dA40C4 CON(2) #29 Token *A40C6 dA40C6 CON(1) #7 dA40C7 NIBASC 'ESC$' dA40CF CON(2) #2A Token *A40D1 dA40D1 CON(1) #3 dA40D2 NIBASC 'FF' dA40D6 CON(2) #2B Token *A40D8 dA40D8 CON(1) #3 dA40D9 NIBASC 'LF' dA40DD CON(2) #2C Token *A40DF dA40DF CON(1) #7 dA40E0 NIBASC 'MODE' dA40E8 CON(2) #2D Token *A40EA dA40EA CON(1) #7 dA40EB NIBASC 'PERF' dA40F3 CON(2) #2E Token *A40F5 dA40F5 CON(1) #3 dA40F6 NIBASC 'PL' dA40FA CON(2) #2F Token *A40FC dA40FC CON(1) #F dA40FD NIBASC 'UNDERLIN' dA410D CON(2) #30 Token *A410F dA410F CON(1) #7 dA4110 NIBASC 'WRAP' dA4118 CON(2) #31 Token dA411A NIBHEX 1FF Text table end *A411C---------- oA411D ST=0 4 A4120 GOTO A4127 oA4124 ST=1 4 oA4127 P= 0 A4129 SETHEX A412B GOSBVL #12337 =POLL A4132 CON(2) #0F A4134 ?XM=0 A4137 GOYES A4144 A4139 LCHEX 40 eDevice Not Found A413D GOVLNG #09393 =MFERR oA4144 C=RSTK A4146 D1=C A4149 C=C+1 A A414B D=C A A414D GOSUB A4151 oA4151 C=RSTK A4153 B=C A A4155 LCHEX 0001D eRecord Ovfl A415C C=C+B A A415E RSTK=C A4160 C=A A A4162 RSTK=C A4164 A=0 A A4166 P= 0 A4168 A=DAT1 WP A416C RTN A416E ?ST=1 4 A4171 RTNYES oA4173 GOVLNG #08A48 =NXTSTM oA417A A=DAT0 B A417D LCHEX E0 '.' =tCREF ON A4181 ?C=A B A4184 RTNYES *A4186 BELL parse routine *A4186 CR parse routine *A4186 FF parse routine *A4186 LF parse routine oA4186 RTNCC *A4188 BELL decompile routine *A4188 CR decompile routine *A4188 FF decompile routine *A4188 LF decompile routine oA4188 GOVLNG #05303 =OUTELA *A418F UNDERLIN decompile routine oA418F LCHEX 2045 ' E' A4195 D0=D0- 2 A4198 GOSBVL #02CFD =OUT2TC A419F A=DAT1 B *A41A2 BOLD decompile routine *A41A2 PERF decompile routine *A41A2 WRAP decompile routine oA41A2 GOVLNG #052FC =TRACDC *A41A9 UNDERLIN parse routine oA41A9 GOSBVL #03FB8 =CNVWUC A41B0 LCHEX 45 'E' A41B4 ?C#A B A41B7 GOYES A41D6 to GOVLNG #02E2B =SYNTXe A41B9 D1=D1+ 2 *A41BC BOLD parse routine *A41BC PERF parse routine *A41BC WRAP parse routine oA41BC GOSBVL #02C2A =WRDSCN A41C3 CON(2) #E0 ON A41C5 REL(3) A4186 A41C8 CON(2) #E1 OFF A41CA REL(3) A4186 A41CD CON(2) #00 token table end A41CF GOVLNG #03035 =REST* oA41D6 GOVLNG #02E2B =SYNTXe *A41DD PL parse routine oA41DD GOSBVL #02A7E =EOLCK A41E4 GOC A4200 to GOVLNG #03172 =RESPTR A41E7 GOSUB A4200 to GOVLNG #03172 =RESPTR A41EB GOVLNG #02AC6 =DELAYp *A41F2 MODE parse routine oA41F2 GOVLNG #02A6E =FIXP *A41F9 MODE decompile routine *A41F9 PL decompile routine oA41F9 GOVLNG #05470 =DROPDC oA4200 GOVLNG #03172 =RESPTR dA4207 REL(5) A4188 Offset to BELL decompile routine dA420C REL(5) A4186 Offset to BELL parse routine *A4211 BELL entry point oA4211 GOSUB A411D A4215 NIBHEX 1 A4216 CON(2) 7 BEL dA4218 REL(5) A41A2 Offset to BOLD decompile routine dA421D REL(5) A41BC Offset to BOLD parse routine *A4222 BOLD entry point oA4222 GOSUB A417A A4226 GOC A4230 A4229 GOSUB A411D A422D NIBHEX 1 A422E CON(2) 15 SI (bold off) oA4230 GOSUB A411D A4234 NIBHEX 1 A4235 CON(2) 14 SO (bold off) dA4237 REL(5) A4188 Offset to CR decompile routine dA423C REL(5) A4186 Offset to CR parse routine *A4241 CR entry point oA4241 GOSUB A4249 A4245 GOTO A4173 to GOVLNG #08A48 =NXTSTM oA4249 D1=(5) #2F956 RAM=PPOS A4250 C=0 B A4253 DAT1=C B A4256 GOSUB A4124 A425A NIBHEX 1D001 dA425F NIBHEX 00 *A4261 ESC$ entry point oA4261 CD1EX A4264 R1=C A4267 D1=C A426A D1=D1- 2 A426D P= 0 A426F LC(2) 27 ESC A4273 DAT1=C B A4276 GOSBVL #1A460 =D=AVMS A427D ST=0 0 A4280 GOVLNG #181B7 =ADHEAD dA4287 REL(5) A4188 Offset to FF decompile routine dA428C REL(5) A4186 Offset to FF parse routine *A4291 FF entry point oA4291 GOSUB A4249 A4295 GOSUB A411D A4299 NIBHEX 1 A429A CON(2) 12 Form Feed dA429C REL(5) A4188 Offset to LF decompile routine dA42A1 REL(5) A4186 Offset to LF parse routine *A42A6 LF entry point oA42A6 GOSUB A4249 A42AA GOSUB A411D A42AE NIBHEX 1 A42AF CON(10) Line Feed oA42B1 GOVLNG #09B2C =D0=AVS dA42B8 REL(5) A41F9 Offset to MODE decompile routine dA42BD REL(5) A41F2 Offset to MODE parse routine *A42C2 MODE entry point oA42C2 GOSUB A432A A42C6 C=0 W A42C9 C=A WP A42CC ?C#A W A42CF GOYES A434C to GOVLNG #0BF19 =ARGERR A42D1 SETHEX A42D3 LCASC '0' A42D7 A=A+C B A42DA GOSBVL #0ED1E =ASLW4 A42E1 GOSBVL #0ED21 =ASLW3 A42E8 LCHEX 53006B261B5 ESC & k 0 S (pitch) A42F5 C=C+A W A42F8 GOSUB A42B1 to GOVLNG #09B2C =D0=AVS A42FC DAT0=C 11 A4300 CD0EX A4303 RSTK=C A4305 GOTO A411D dA4309 REL(5) A41A2 Offset to PERF decompile routine dA430E REL(5) A41BC Offset to PERF parse routine *A4313 PERF entry point oA4313 GOSUB A417A A4317 A=0 A A4319 LCASC 'L' A431D GONC A4322 A4320 A=A+1 A oA4322 GOSUB A4353 A4326 GOTO A4173 to GOVLNG #08A48 =NXTSTM oA432A SETHEX A432C GOSBVL #0F178 =EXPEX- oA4333 GOSBVL #12AE2 =RJUST A433A SETHEX A433C GOC A434C to GOVLNG #0BF19 =ARGERR A433F C=0 W A4342 LCHEX 128 A4347 ?C>A W A434A RTNYES oA434C GOVLNG #0BF19 =ARGERR oA4353 D=C B A4356 B=A A A4358 GOSUB A42B1 to GOVLNG #09B2C =D0=AVS A435C LCHEX 6C261B7 ESC & l A4365 DAT0=C 7 A4369 D0=D0+ 7 A436C BSRC A436F BSRC A4372 LCASC '0' A4376 P= 2 oA4378 A=B A A437A B=0 A A437C A=A+C B A437F DAT0=A B A4382 D0=D0+ 2 A4385 BSLC A4388 P=P-1 A438A GONC A4378 A438D C=D B A4390 DAT0=C B A4393 D0=D0+ 2 A4396 LCHEX 01 A439A DAT0=C B A439D D0=D0- 15 A43A0 GOSUB A43A4 oA43A4 C=RSTK A43A6 A=C A A43A8 LCHEX FFEB9 A43AF C=C+A A A43B1 RSTK=C A43B3 CD0EX A43B6 RSTK=C A43B8 GOTO A4124 A43BC GOTO A434C to GOVLNG #0BF19 =ARGERR dA43C0 REL(5) A41F9 Offset to PL decompile routine dA43C5 REL(5) A41DD Offset to PL parse routine *A43CA PL entry point oA43CA A=DAT0 B A43CD GOSBVL #05405 =EOLXCK A43D4 GONC A43F2 A43D7 GOSUB A411D A43DB CON(1) 11 A43DC CON(2) 27 ESC A43DD NIBASC '&l' oA43F2 GOSUB A432A A43F6 D1=D1+ 16 A43F9 AD1EX A43FC R1=A A43FF D0=(5) #2F59E RAM=SAVSTK A4406 C=DAT0 A A4409 ?C<=A A A440C GOYES A442D A440E AD1EX A4411 LCASC 'F' A4415 GOSUB A4353 A4419 A=R1 A441C D1=A A441F GOSBVL #0E8FD =POP1R A4426 GOSUB A4333 A442A AD1EX oA442D AD1EX A4430 LCASC 'P' A4434 GOSUB A4353 A4438 GOTO A4173 to GOVLNG #08A48 =NXTSTM dA443C REL(5) A418F Offset to UNDERLIN decompile routine dA4441 REL(5) A41A9 Offset to UNDERLIN parse routine *A4446 UNDERLIN entry point oA4446 GOSUB A417A A444A GOC A445A A444D GOSUB A411D A4451 NIBHEX 4B1624604 ESC & d @ oA445A GOSUB A411D A445E NIBHEX 4B1624644 ESC & d D dA4467 REL(5) A41A2 Offset to WRAP decompile routine dA446C REL(5) A41BC Offset to WRAP parse routine *A4471 WRAP entry point oA4471 GOSUB A417A A4475 GOC A4487 A4478 GOSUB A411D A447C NIBHEX 5B162371334 ESC & s 1 C oA4487 GOSUB A411D A448B NIBHEX 5B162370334 ESC & s 0 C dA4496 FILEND * DISASM started 89/04/18 19:52:54 * DISASM finished 89/04/18 20:00:39